|
AutoLisp : Fortlaufende Nummern
Dober Heinz am 07.05.2004 um 08:25 Uhr (0)
Danke an alle bin Lisp anfänger und weis nicht so recht wo ich was einfügen muss danke Heinz ------------------
|
|
AutoLisp : Lisp laden
Dober Heinz am 02.09.2004 um 12:25 Uhr (0)
danke für antwort gruss heinz ------------------ Heinz
|
|
AutoLisp : Lisp laden
Dober Heinz am 02.09.2004 um 12:42 Uhr (0)
@Brischke danke so werde ich es machen danke nochmal ------------------ Heinz
|
|
AutoLisp : Text Kopieren und ändern
Dober Heinz am 20.10.2004 um 06:50 Uhr (0)
Guten Morgen Habe eine Frage, kann mir bitte ein Lispprofi das folgende Lisp änder das ich auch mtexte kopieren und gleich ändern kann (defun C:KOTA (/ OBJEKT) (while (setq OBJEKT (ssget _:S ((0 . *TEXT )))) (setq OBJEKT (ssname OBJEKT 0)) (command _.copy OBJEKT (cdr (assoc (if ( 0 (cdr (assoc 72 (entget OBJEKT)))) 11 10 ) ; ...
|
|
AutoLisp : Zahlenspiel
Dober Heinz am 17.02.2005 um 13:24 Uhr (0)
Hallo Profis Habe eine Frage Hat jemand ein Lisp wo (3.OG/C/12)ich diesen Text mehrfachkopieren kann, und sich die letzte Zahl immer um eine erhöht 12, 13, 14 und soweiter. Danke bin selber zu dumm um so was zu schreiben ------------------ Heinz
|
|
AutoLisp : Zahlenspiel
Dober Heinz am 17.02.2005 um 14:56 Uhr (0)
@Juergen55 Ja das keine ich verwende den Lisp e immer ist super. aber ich will ja nur eine Text mehrfachkopieren der schon vorhanden ist und nur die letzte Nummer um 1 erhöhen das danke ------------------ Heinz
|
|
AutoLisp : Nummern forlaufend
Dober Heinz am 20.04.2005 um 12:44 Uhr (0)
Hallo Lispler Habe eine Bitte kann mir jemand das Lisp so ändern, das ich dem Text am Fadenkreuz schon seh, damit ich ihn besser Platzieren kann. Danke Heinz (defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar CLAYER )) (setq prefix (getstring
Textprefix: ) nr (if (setq ant (getint
Startnummer 0 )) (1- ant) 0 ) ;_ end of if th (getreal
Texthöhe: ) ) (princ
Wählen sie ein Element für die Layerschaltung : ) (setq A ...
|
|
AutoLisp : Nummern forlaufend
Dober Heinz am 20.04.2005 um 15:06 Uhr (0)
@ Cadwiesl Danke super Lisp 10 us danke heinz ------------------ Heinz
|
|
AutoLisp : Block auf Layer
Dober Heinz am 14.07.2005 um 15:48 Uhr (0)
Hallo Lispler Suche ein Lisp wo ich meine Blöcke auf Layer (z.B. --E-Starkstrom) legen kann. Die Blöcke sind jetzt von Layer, möchte mir einen zweiten Blocksatz herrichten wo die Blöcke beim einfügen gleich auf den richtigen Layer eingefügt werden. sind ungefähr 500 blöcke und die alle Einzel änder ist viel aufwand. danke heinz mit Suche nichts gefunden ------------------ Heinz
|
|
AutoLisp : Text kopieren und ändern
Dober Heinz am 29.09.2005 um 16:25 Uhr (0)
Hallo AntonDanke auch dirwerde versuchen das ihn mein Lisp einzuarbeiten.------------------ Heinz
|
|
AutoLisp : Text kopieren und ändern
Dober Heinz am 18.10.2005 um 14:29 Uhr (0)
@FuchsiHabe dein Lisp getestet(setq aus (car(entsel)))(setq umw (entget aus))(setq txt (cdr (assoc 1 umw)))(setq a2 (fSplit txt "/"))(strcat (itoa (car a2 )) "/" (itoa (1+ (cadr a2))))(defun fSplit (String Separator /) (setq String (replace String Separator " ")) (setq String(strcat "(list " String ")")) (eval (read String)) )(defun Replace (String SearchString ReplaceString /) (while (/=String (vl-string-subst ReplaceString SearchString String)) (setq String (vl-string-subst ReplaceString SearchSt ...
|
|
AutoLisp : Text kopieren und ändern
Dober Heinz am 19.10.2005 um 06:44 Uhr (0)
@FuchsiHabe mir das Lisp nochmal umgebaut um diese Zahlen zu erhöhen 1/2 wird 2/3 das funkt mal.Aber mit Text M1/2 geht das Lisp nicht. Sollte M2/3 werden(setq aus (car(entsel)))(setq umw (entget aus))(setq txt (cdr (assoc 1 umw)))(setq a2 (fSplit txt "/"))(setq fertig(strcat (itoa (1+ (car a2 ))) "/" (itoa (1+ (cadr a2)))))(defun fSplit (String Separator /) (setq String (replace String Separator " ")) (setq String(strcat "(list " String ")")) (eval (read String)) )(defun Replace (String SearchString Repla ...
|
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 copytext) copytext)) (entmod neuedxf) )(def ...
|
